object wmdWebPics: TwmdWebPics
OnCreate = wmdWebPicsCreate
OnDestroy = wmdWebPicsDestroy
Actions = <
item
Default = True
Name = 'wacGetPic'
OnAction = wmdWebPicswacGetPicAction
end
item
Name = 'wacConfigure'
PathInfo = '/config'
OnAction = wmdWebPicswacConfigureAction
end>
Left = 200
Top = 108
Height = 193
Width = 205
object qryWebPics: TQuery
DatabaseName = 'WebPicsDB'
SQL.Strings = (
'select PICTURE_TYPE, PICTURE_BLOB'
'from WEBPICS'
'where PICTURE_NO = :id')
Params.Data = {0100010002696400030400000000000000}
Left = 128
Top = 8
end
object dbsWebPics: TDatabase
DatabaseName = 'WebPicsDB'
KeepConnection = False
LoginPrompt = False
SessionName = 'Default'
Left = 28
Top = 8
end
object wppListSchemes: TPageProducer
HTMLDoc.Strings = (
''
''
'WebPics Configuration'
''
''
'WebPics Configuration
'
'Select one of the configurations below to update or delete'
'or add a new configur' +
'ation.
'
'<#SCHEMES>'
''
'')
OnHTMLTag = wppListSchemesHTMLTag
Left = 28
Top = 60
end
object wppAddScheme: TPageProducer
HTMLDoc.Strings = (
''
''
'WebPics Configuration'
''
''
'WebPics Add a Configuration
'
'Enter values for each field below then press Add to save it.
'
''
'Return to the list of current sche' +
'mes.
'
''
'')
OnHTMLTag = wppAddSchemeHTMLTag
Left = 28
Top = 108
end
object wppUpdateScheme: TPageProducer
HTMLDoc.Strings = (
''
''
'WebPics Configuration'
''
''
'WebPics Update a Configuration
'
'Alter values in any field below then press Update to save it.
'
''
'Return to the list of current sche' +
'mes.
'
''
'')
OnHTMLTag = wppUpdateSchemeHTMLTag
Left = 128
Top = 108
end
end